Thank you!
The below code worked.

Private Sub Document_ContentControlOnExit(ByVal aCC As ContentControl, Cancel As Boolean)
If aCC.Type = wdContentControlCheckBox Then
aCC.Range.Rows(1).Range.Font.Hidden = Not aCC.Checked
End If
End Sub