Automatically add pagebreaks at interval: VBA Excel

Dim intCntRows As Integer
Dim intLastRow As Integer
intLastRow = ActiveSheet.UsedRange.End(xlDown).Row
intCntRows = 2
Do Until intCntRows = intLastRow
If InStr(ActiveSheet.Cells(intCntRows, 1), "=") > 0 And Range("A" & intCntRows).HasFormula = False Then
ActiveSheet.Rows(intCntRows + 1).PageBreak = xlPageBreakManual
End If
intCntRows = intCntRows + 1
Loop