Perhaps:
Sub TblFormat()
Application.ScreenUpdating = False
Dim r As Long, x As Long, y As Long, z As Long
With ActiveDocument.Tables(1).Range
  y = .Characters.First.Information(wdActiveEndPageNumber)
  For x = 1 To .Cells.Count
    If .Cells(x).ColumnIndex = 1 Then
     z = .Cells(x).Range.Information(wdActiveEndPageNumber)
     If y = z Then r = x
    End If
    If y < z Then
      .Cells(r).Range.ParagraphFormat.PageBreakBefore = True
      r = x: y = y + 1: z = y
    End If
  Next
End With
Application.ScreenUpdating = True
End Sub