Elisp
Here is a simple elisp function for it:
(defun labelnameref (string)
"Insert \label{ARG} \index{\nameref{ARG}} at point"
(interactive "sString for \\label and \\nameref: ")
(insert "\\label{" string "} \\index{\\nameref{" string "}}"))
This function queries in the minibuffer for the string and then inserts it all at point. To use it you can put it in your .emacs and then invoke it via M-x labelnameref
or bind it to a key.
YASnippet
If you want to use lots of similar constructs it might be easier to write them as yasnippets. With YASnippet you can easily create a snippet with similar behavior as above. For example you can use the following (you have replace "keybinding" with a proper keybinding if you want a keybinding for it):
# -*- mode: snippet -*-
# name: foo
# key: foo
# binding: "keybinding"
# --
\label{$1} \index{\nameref{$1}}
With this you write foo and press Tab directly afterwards to expand it to \label{$1} \index{\nameref{$1}}
and query for $1
.