That is because \[Alpha]
is not a symbol, it is a named character. Programatically (from here)
Select[Table[{#, ToString[FullForm[#]]} &[FromCharacterCode[i]], {i, 65535}], StringMatchQ[#[[2]], "\"\\[" ~~ __] &]
search all entries which including a substring expressed by a specific
regular expression from the above output
All symbol names with 4 uppercase characters
allSymbols // Select[StringMatchQ[CanonicalName@#, RegularExpression["([A-Z].+){4}"]] &]