You need to create a list to hold the checked nodes and call a function recursively. Something like:
Sub CheckedNodes(list as List(Of TreeNode), currentnode as TreeNode)
For Each node as TreeNode in currentnode.Nodes
If node.Checked Then list.Add(node)
CheckedNodes(list, node)
Next
End Sub