Option Explicit
Sub InsertRowsBeforePageBreak()
Dim sh As Worksheet
Set sh = ActiveSheet
Dim nRowsAdded As Long
Dim i As Long
For i = 1 To sh.HPageBreaks.Count
Rows(Range(sh.HPageBreaks(i).Location).Row + nRowsAdded & ":" & Range(sh.HPageBreaks(i).Location).Row + nRowsAdded + 1).Insert Shift:=xlDown
nRowsAdded = nRowsAdded + 2
Next i
End Sub