Inserting Page Breaks on relative Rows based on Data

Ah, page breaks:

Sub x()
    Dim cell    As Excel.Range

    ActiveSheet.ResetAllPageBreaks
    For Each cell In Range("C3", Range("C3").End(xlDown))
        If cell.Value <> cell.Offset(-1).Value Then
            ActiveSheet.HPageBreaks.Add before:=cell
        End If
    Next cell
End Sub