A slightly different solution using a For/Next loop. It works for me.

Sub InsertPageBreaks()

Dim FindRange As Range

With Sheets("Sheet1")
Set FindRange = .Range(.Range("B2"), .Range("B2").End(xlDown))
End With

Dim Cell As Object
Dim q As Long

Worksheets("Sheet1").ResetAllPageBreaks

For Each Cell In FindRange
If Cell.Value = 1 Then
q = Cell.Row
Sheets("Sheet1").Rows(q).PageBreak = xlPageBreakManual
End If

Next Cell

End Sub