If you are using ContentControl Checkboxes and you assign the title Check to each of them, if you have the following code in the ThisDocument object, the rows will be shaded as you want
Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
If ContentControl.Title = "Check" Then
If ContentControl.Checked = True Then
ContentControl.Range.Rows(1).Shading.BackgroundPatternColor = wdColorYellow
Else
ContentControl.Range.Rows(1).Shading.BackgroundPatternColor = wdColorWhite
End If
End If
End Sub