Bueno, explico, sería algo más o menos así:
Código:
Dim Count As Integer
Do While Cells(Count,1) <> "" 'Ejecutamos este código mientras no encontremos una fila vacía
Count = Count + 1
If Cells(Count, 1) = "Valor buscado" Then
Worksheets(1).HPageBreaks.Add Cells(Count, 1) 'Aquí insertamos el salto de página
End If
Loop
P.S.: En este caso la columna de trabajo es A (1), puedes cambiar por la que desees...