I was wondering if there is a way to write a macro that will insert a page break everywhere it finds

From the OnLine help, topic: "PageBreak"

PageBreak Property Example

This example sets a manual page break above row 25 on Sheet1:

Worksheets("Sheet1").Rows(25).PageBreak = xlPageBreakManual

This example sets a manual page break to the left of column J on Sheet1:

Worksheets("Sheet1").Columns("J").PageBreak = xlPageBreakManual

This example deletes the two page breaks that were set in the preceding examples:

Worksheets("Sheet1").Rows(25).PageBreak = xlPageBreakNone
Worksheets("Sheet1").Columns("J").PageBreak = xlNone